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PROLOGO 


COSPA ha iniciado, en cuanto Empresa de Servicios Mecanizados 
para la Enseñanza, una nueva actividad con la que pretende que los 
conocimientos básicos de la informática sean impartidos en los Centros 
de Educación de EGB, BUP, COU y FP. 


A este nuevo Servicio le denominamos AULA DE INFORMATICA 
BASICA, y constará de tres niveles: 


Nivel 1: “Introducción a los ordenadores y Programación en Lenguaje 
BASIC”. 


BASIC para la Escuela 


Nivel 2: que constará de las tres siguientes alternativas opcionales: 


2.1.— Perfeccionamiento de la programación en Lenguaje 
BASIC (Segundo curso). 


2.2.— Iniciación a la programación en el Lenguaje Educacio- 
nal LOGO (Primer curso). 


2.3.— Iniciación a la programación en el Lenguaje PASCAL 
(Primer curso). 


Nivel 3: ¡igualmente constará de las tres alternativas opcionales 
siguientes: 


3.1.— Programación en Lenguaje BASIC (Tercer curso). 


3.2.— Perfeccionamiento de la programación en Lenguaje 
L0GO (Segundo curso). 


3.3.— Perfeccionamiento de la programación en Lenguaje 
PASCAL (Segundo curso). 


Pues bien, BASIC PARA LA ESCUELA (nivel 1) responde a los 
objetivos a conseguir por el AULA DE INFORMATICA BASICA en su 
primer nivel. Es decir, por un lado asimilar los conocimientos básicos del 
ordenador y su uso, tanto de la máquina (Hardware) en sí, como de los 
procedimientos de programación (Software); por otro, asimilar los cono- 
cimientos elementales de la programación en Lenguaje BASIC. 


Los alumnos, aprendiendo la lógica del funcionamiento del computa- 
dor y la lógica de la programación misma, conseguirán simultánea- 
mente desarrollar su inteligencia adquiriendo el hábito de pensar 
estructuralmente. Ello le servirá sin duda, para perfeccionar su modo de 
estudiar las demás áreas de aprendizaje. 


Por otro lado, y como objetivo no menos importante que los anterio- 
res, el AULA DE INFORMATICA BASICA pretende que, con el domi- 
nio del lenguaje de Programación BASIC (así como los demás lenguajes 
programados), que se inicia con este nivel elemental de BASIC PARA 
LA ESCUELA, los alumnos estén capacitados para la utilización de LA 


ENSEÑANZA ASISTIDA POR ORDENADOR con suficiente autono- 
mía y mejor aprovechamiento. 


La metodología utilizada en la elaboración de este Manual Elemental 
BASIC PARA LA ESCUELA es la que hemos considerado mejor para 
conseguir una didáctica adaptada y de fácil asimilación para los alumnos 
a los que va dirigido. La complejidad va creciendo progresivamente con- 
forme se avanza en el estudio, pero permitiendo realizar prácticas desde 
el primer día. 


Todos los capítulos del Manual guardan una misma estructura 
interna. En primer lugar se explica el concepto con sencillez y claridad. 
Se completa la explicación mediante ejemplos adecuados a cada punto. 
Al final de cada capítulo se repasan los conceptos tratados en el mismo 
mediante preguntas y/o ejercicios que el alumno debe saber responder 
sín necesidad de recurrir a la explicación de texto. El alumno podrá con- 
trastar sus respuestas con las soluciones correctas que el Manual le 
ofrece. 


Finalmente, se han elaborado una serie de ejercicios sobre cuestio- 
nes de Matemáticas y de Física que deberán resolverse mediante la ela- 
boración del correspondiente programa en Lenguaje BASIC. De esta se 
conseguirá afianzar los conocimientos adquiridos sobre el lenguaje 
BASIC aplicándoles en la resolución de unos problemas que han estu- 
diado en otras áreas del aprendizaje. Evidentemente, los programas a 
realizar para resolver dichas cuestiones sólo necesitan de los conceptos 
elementales del BASIC estudiado en este Manual. 


Estos ejercicios se presentan en el Apéndice, en el que la primera 
Parte consta de problemas de Matemáticas y en la segunda Parte se pre- 
sentan las cuestiones de Física. 


Para cada uno de los ejercicios se presenta una de las soluciones 
correctas posibles. Es decir, un programa en lenguaje BASIC que 
resuelve de forma correcta cada una de las cuestiones planteadas, de 
forma que el alumno pueda contrastar su solución con la propuesta y 
revise los errores cometidos analizando sus causas. 


Por tanto, querido lector, creemos haber puesto en sus manos un 
Manual elemental de BASIC que está elaborado pensando en aquellas 
personas que carecen de conocimientos previos en este lenguaje, de 
forma que le sirva de una ayuda metodológicamente valiosa y didáctica 
para adentrarse en el conocimiento de la programación mediante el len- 
guaje BASIC. 


L. Ortega M. 


Director del Departamento de 
Educación e Investigación 
de COSPA 


Madrid, septiembre de 1984 
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CAPITULO 1 


EL ORDENADOR 


1. ¿QUE ES UN ORDENADOR Y PARA QUE SIRVE? 


Un ordenador es una máquina que ejecuta automática- 
mente una serie de operaciones (instrucciones) que se han dado 
previamente. 

Posiblemente, esta definición no te diga gran cosa, por eso, 
para entenderlo mejor, lo veremos con un ejemplo: 


El Ordenador 


imaginaros una empresa que tiene que pagar a sus emplea- 
dos, necesita calcular el dinero que tiene que entregar a cada 
uno de elios. Para esto, tiene que utilizar datos como sueldo 
base, antigúedad, hijos, bonificaciones, retenciones, Seguridad 
Social, etc. (datos de entrada). 


A todos estos datos hay que aplicarles una serie de opera- 
ciones y en un determinado orden (programa), para que nos 
calcule el dinero que hay que darle a cada empleado (resul- 
tado). 


Evidentemente, si en esta empresa hubiese 3 empleados, lo 
podríamos hacer a mano o con la ayuda de una calculadora, 
pero si la empresa tuviese 1.800 empleados la cosa se compli- 
caría, pues tardaríamos mucho o necesitaríamos muchas per- 
sonas para hacer estos cálculos. Sin embargo, para el orde- 
nador resultaría más o menos sencillo y sobre todo, mucho 
más rápido, ya que la velocidad a la que el ordenador ejecuta 
los cálculos es infinitamente más rápida que la del hombre. 


Para que un trabajo de este tipo se pueda realizar en un 
ordenador, necesitamos darle las siguientes informaciones: 
DATOS DE ENTRADA, serán aquellos a partir de los 


cuales vamos a realizar los cálculos (sueldo base, antigiedad...). 


PROGRAMA O DATOS OPERACIONALES, tenemos 
que decirle al ordenador las operaciones que tiene que hacer 
con los datos de entrada y en qué orden se deben hacer. Ade- 
más. se le debe decir en un lenguaje que entienda el ordena- 
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dor (lenguajes de programación como son por ejemplo el 
BASIC, FORTRAN, COBOL, etc.). 

Y el ordenador nos dará: 

RESULTADOS O DATOS ELABORADOS, es decir, el 
resultado de haber aplicado las operaciones a los datos de 
entrada. 


Una vez visto lo que hace un ordenador, vamos a ver cómo 
lo hace. Para ello vamos a descomponerlo en las partes de que 
consta. 

Todo ordenador consta de dos partes principales: 

1. LA UNIDAD CENTRAL DE PROCESO (UCP), en la 
que se acumulan los datos y programas y se realiza el trata- 
miento de la información en general. 

2. LAS UNIDADES PERIFERICAS, que nos permiten la 
comunicación con el ordenador, es decir, introducir datos u 
obtener resultados del ordenador. 


U CP 


MEMORIA 


Progra- 
mas 


ENTRADA 


SALIDA 


UNIDAD 
DE 
CONTROL 


UNIDAD 
ARITMETICA 
LOGICA 


LA UNIDAD CENTRAL DE PROCESO se compone de: 
— Memoria, donde se guarda la información que usa el 
ordenador. 


— Unidad Aritmético Lógica, que se encarga de realizar las 
Operaciones necesarias con la información. 

— Unidad de Control, que se encarga de dirigir a las 
demás. 


2. MEMORIA 


En la memoria del ordenador sólo se pueden guardar dos 
tipos de información básica, el O y el 1, es decir, podemos 
suponer la memoria como una serie de puntos que pueden 
estar encendidos, 1; o apagados, 0. 

La unidad de información es el “*bit””, y sólo tiene dos va- 
lores 0 y 1. 

Así pues, la información que se guarda en la memoria solo 
puede estar compuesta por unos y ceros. 

Podemos imaginarnos la memoria como una libreta de 
páginas numeradas, en cada página hay una serie de cuadrícu- 
las y en cada cuadrícula podemos guardar un cero o un uno. 

En cada página podemos escribir una palabra, y el tamaño 
de la palabra depende del número de cuadriculas (bits) que 
tiene cada página, esto a su vez depende del tipo de ordena- 
dor, hay ordenadores que tienen 8, 16, 32 bits (cuadrículas) 
por palabra (página). 


En un ordenador determinado, todas las páginas tienen el 


mismo número de cuadrículas; o lo que es lo mismo, una pa- 
labra siempre tiene el mismo numero de bits. 

Hemos visto que en la memoria del ordenador se puede 
guardar información, pero ¿qué información se puede guar- 
dar?. Bien, pues en la memoria se guardan Instrucciones y 
Datos. Instrucciones que indican al ordenador qué operaciones 
debe realizar y datos con los cuales debe realizar estas ope- 
raciones. 

El ordenador necesita saber qué Instrucción debe realizar y 
con qué datos debe de hacerlo, para eso necesita saber dónde 
están y poder obtenerlos. Por eso decíamos que las páginas de 
la memoria están numeradas, para que el ordenador pueda 
acceder a esa información (Instrucción o Dato) sabiendo sola- 
mente el número de página donde se encuentra. 

Es decir, el ordenador se puede encontrar instrucciones del 
tipo: 


Pon en la página 10 el valor 100 
Ejecuta la instrucción de la página 32 


Los datos pueden ser valores numéricos o bien palabras 
que estarán guardados en memoria en forma de ceros y unos, 
según unos códigos preestablecidos. 


La capacidad de una memoria es el número de páginas que 
tiene v se suele expresar en K. 


Si a un grupo de 8 bits lo llamamos byte u octeto, una K son 
1.024 bytes, es decir, 1.024 grupos de 8 bits. 

Luego una memoria de 64 kbytes quiere decir que tiene 
64 x 1.024 bytes, o bien, 64 x 1.024 x 8 bits. 


3. UNIDAD DE CONTROL 


Es la parte del ordenador encargada de controlar la realiza- 
ción de las operaciones, y el orden de las mismas. Así como de 
dar paso a otras partes del ordenador como la UAL. 


¿Cómo lo hace? 


a) En el ordenador hay un apuntador que en todo momen- 
to contiene la posición o número de página de la ins- 
trucción que se debe de ejecutar, este apuntador se 
conoce con el nombre de Contador de posiciones. 

b) Entonces, la Unidad .de Control va a la posición O pá- 
gina que le indica el contador de posiciones y obtiene la 
instrucción. 

Cc) Lee la instrucción y la interpreta o decodifica, es decir, 
decide qué es lo que indica esa instrucción. 

d) Si la operación es una operación aritmética o lógica, le 
dice a la Unidad Aritmético Lógica qué tiene que hacer 
y con qué datos. 

e) Si la operación es una operación de entrada/salida, el 
control se lo comunica a la parte del ordenador que se 


dedica a realizar estas operaciones (unidad de E/S, 
canal) para que se ejecute. 


4. UNIDAD ARITMETICO LOGICA 


Los ordenadores disponen de una parte que específicamen- 
te se dedica a realizar Operaciones aritméticas, (sumas, restas, 
multiplicaciones, etc...) y lógicas, (comparaciones...). 

Para esto, la Unidad Aritmético Lógica dispone de unos 
circuitos, sumadores, comparadores, etc., que toman como 
entrada los datos que le da la unidad de Control; y mediante 
los circuitos lógicos seleccionados, de acuerdo con la operación 
que se va a realizar, devuelve el resultado de la operación que 
indicaba la instrucción que previamente había interpretado 
la U.C. 


5. LENGUAJES DE PROGRAMACION 


Para que el ordenador haga las operaciones necesarias con 
los datos de entrada y nos dé los resultados que nosotros 
deseamos, debemos decírselo de alguna forma que el ordena- 
dor entienda; es decir, en un lenguaje que sea comprensible para 
el ordenador. 


Por ejemplo, si quisiéramos sumar dos números podríamos 
decirle: 


Entrar número A 

Entrar número B 

Sumar A y B y ponerlo en C 
Imprimir C 

Fin 


Este lenguaje, que para nosotros es comprensible, debemos 
hacerlo comprensible para el ordenador, así pues: 


10 INPUT "introduce el primer Numero: "¡A :Entrar numero A 

20 INPUT "Introduce el segundo Numero: ”;B :Entrar numero B 

30 LET C::A+B ¡Sumar A y B y ponerlo en C 
40 PRINT C ¡Imprimir C 

50 END Fin 


Este es un lenguaje que comprende el ordenador pero, al 
igual que ocurre con los idiomas, hay varios lenguajes com- 
prensibles a los ordenadores, siendo los más conocidos 
BASIC, FORTRAN, COBOL, PASCAL, RPG... 

Resumiendo, un programa es una serie de instrucciones 
escritas en un lenguaje comprensible para el ordenador. 


pP1) 


P2) 


P3) 


REPASO CAPITULO 1? 


El computador esencialmente se compone de dos partes 
que son: 


La Unidad Central de Proceso se compone de 3 partes: 
1) Una parte llamada 0 
se guarda la información que usa el computador. 
2) Una parte llamada 00 que 
hace las operaciones necesarias con la información. 
3) Una parte llamada 
dirige a las demás. 


¿Cómo se llama la unidad de información que sólo pue- 
de contener como valor un cero o un uno? 


P4) ¿Cómo se llaman las unidades mediante las cuales noso- 
tros podemos darle la información al computador y me- 


diante las cuales el computador nos da los resultados? 


No pasar la página hasta haber contestado las cuatro 
preguntas planteadas. 


R1) 


R2) 


R3) 


R4) 


SOLUCIONES 


a) La U.C.P. (Unidad Central de Proceso) 
b) Las Unidades Periféricas o unidades de entrada/salida 


1) Memoria 
2) Unidad Aritmético-Lógica 
3) Unidad de Control 


BIT 


Unidades Periféricas o unidades de entrada/salida 
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CAPITULO 2 


ORDENADORES PERSONALES 


1. INTRODUCCION 


Los ordenadores personales son de pequeña dimensión y 
precio relativamente bajo, con unas prestaciones limitadas, 
pero más amplias que los ordenadores medios de hace algunos 
años. 


Los periféricos más normales que tienen estos ordenadores 


son: 
TECLADO (entrada) 
PANTALLA (salida) 
IMPRESORA (salida) 
CASSETTE (entrada/salida) 
2. TECLADO 


Suele ser el método más corriente para introducir datos al 
ordenador. Son teclados muy similares a los de una máquina de 
escribir, con alguna tecla más para funciones especiales o de 
control. 


3. PANTALLA 


Como periférico de salida es muy versátil, permite la salida 
de información en un aparato de televisión o un Monitor, 
pueden ser en blanco y negro o color. En ellos se pueden escri- 
bir todos los caracteres y símbolos especiales y, en algunos 
casos, gráficos de media y alta resolución. 


4. IMPRESORA 


Los ordenadores pueden tener como periférico de salida 
una pequeña impresora, de papel normal o térmico, que nos 


servirá para imprimir programas o resultados de los cuales 
necesitamos tener constancia escrita. 


5. CASSETTE 


Es una unidad de almacenamiento externo que nos sirve 
para poder guardar programas de una forma prolongada y 
poder utilizarlos cuantas veces sean necesarias sin necesidad de 
volver a introducirlos desde el teclado. 


6. HISTORIA DEL ORDENADOR 


Desde el ábaco hasta nuestros días, la informática ha 
evolucionado de forma sorprendente. Como primer anteceden- 
te de calculadora digital se puede citar la máquina de Pascal 
en 1642, que sumaba y restaba números enteros por medio de 
combinaciones de ruedas dentadas. Esta máquina fue perfec- 
cionada por Leibnitz en 1671, incluyendo la posibilidad de 
multiplicar y dividir. 

No obstante, como precursores de los ordenadores moder- 
nos podemos citar a: 

e CHARLES BABBAGE, profesor de Matemáticas de la 
Universidad de Cambridge, que desarrolló una máquina para 
resolver ecuaciones de 2. grado, aprovechando la idea de 


utilización de fichas perforadas para la entrada de datos en su 
máquina. 


e H. AIKEN, que de 1937 a 1944 desarrolló el llamado 
Mark-I, calculador automático esencialmente de tipo mecá- 
nico. 


e J.P. EAKERT y. J.W. MAUCHLY, desarrollaron hacia 
1945, en la Universidad de Pensilvania, el ENIAC, utilizando 
componentes y circuitos electrónicos y unas 18.000 válvulas 
electrónicas. 


El primer ordenador comercial fue el UNIVAC I, que apa- 
reció en el mercado en 1951. Fue el primero en utilizar técnicas 
binarias. También por esta época, IBM lanzó sus modelos 600 
y 700. Los ordenadores de esta época son los llamados de la 
primera generación y todos utilizaban válvulas de vacio, ocu- 
paban un gran espacio y producían mucho calor. 


Con el desarrollo del transistor como sustitutivo de las vál- 
vulas electrónicas y su aplicación a los ordenadores, nace la 
segunda generación. Estos ordenadores ocupan mucho menos 
volumen y gastan menos energía, con lo que disminuye el calor 
producido, su fiabilidad es mayor y el mantenimiento más 
sencillo. 


Esta generación se puede considerar iniciada entre 1955 
y 1960. 

El desarrollo y perfeccionamiento del transistor, unido a 
las técnicas de miniaturización de los circuitos electrónicos y de 
sus componentes, (tales como diodos, resistencias, conden- 


sadores) dan paso a la tercera generación con los circuitos inte- 


grados monolíticos de pequeñísimo volumen, gran fiabilidad y 
enorme flexibilidad de diseño y funcionalidad. 


Los ordenadores actuales se construyen a base de circuitos 


integrados con una gran densidad de componentes. Esto hace 


que se hable ya de la cuarta generación. 


7. GLOSARIO 


BIT 


(Binary-unit), unidad de 
información binaria, que só- 
lo puede contener O cero oO 
uno. 


ALFANUMERICO 


Información que contiene 
caracteres alfabéticos  (le- 
tras); números 0/y caracteres 
especiales (—.,; + /). 


1060 106001Q 
[0600 II1ODSM 
160000005/4 


BYTE U OCTETO 


Grupo de 8 bits. Se puede 
referir también al espacio ne- 
cesario en la memoria del 
ordenador para guardar un 
carácter. 


INSTRUCCION 


Componente de un pro- 
grama que le indica al orde- 
nador la operación a realizar 
y los datos con qué realizar- 
la, en un lenguaje compren- 
sible al ordenador. 


190001002 
[9800010026 
100010003 N 


PALABRA 


Número de bits mínimo 
que el ordenador maneja a la 
vez. 

Los valores más normales 
son: 4, 8, 12, 16, 24, 32. 


ORDENES 


PROGRAMA 


Lista de instrucciones que 
le dicen al ordenador los cál- 
culos a realizar y el orden en 
que debe hacerlo. 


LOS DATOS 
SON Mi VIDA 


INPUT, ENTRADA 


Operación de entrada de 
datos a la memoria del orde- 
nador desde un periférico de 
entrada, teclado... 


DATOS 


Información necesaria so- 
bre la cual el ordenador de- 
be realizar las Operaciones. 
Pueden ser valores numéri- 
cos, alfanuméricos... 


DUTPUT, SALIDA 


Operación consistente en 
la extracción de resultados 
del ordenador en un perifé- 
rico de salida, pantalla, im- 
presora... 


HE AQUÍ, LO 
FUIVOAMENTAL 


HARDWARE 


Equipo físico que compo- 
ne el ordenador, es todo 
aquello del ordenador que 
podemos tocar. 


SOFTWARE 


Conjunto de programas 
formado por nuestros pro- 
gramas de aplicación y por el 
núcleo de programas que 
hacen funcionar al ordena- 
dor (Sistema Operativo). 


CHIP 


Combinación de muchos 
componentes electrónicos en 
una placa cuadrada de silicio 
de unos 4 mm. aproximada- 
mente. 


AR 
ASCII (American Standard 
Code for Information Inter- 
change). 

Código Standar America- 
no para el intercambio de in- 
formación. Es un código de 
7 bits y resulta ser el más 
utilizado en ordenadores per- 
sonales. A cada letra o ca- 
rácter le corresponde una 
combinación diferente de 7, 
0”S y 1”S. 


Unidad de medida de ca- 
pacidad de memoria. Una K 
corresponde a 1.024 bytes. 
Una memoria de 2 K”s será de 
2.048 bytes. 


(00001 
[091000 
[00100 
10001 (0 


ASIN 


INTERFACE 


Digamos que es el enchufe 
físico para adaptar dos siste- 
mas; por ejemplo, para co- 
nectar una impresora al or- 
denador necesitamos un in- 
terface, que físicamente será 
el cable que une a los dos. 


TAN PEQUEÑO 
COMO+.. 


(NA CABEIA 
DE ALFILER 


UNA PULGA 


MICRO-ORDENADOR 


Un ordenador 
que consta de: 
— un microprocesador 
— memoria | 
— unidades de E/S, (peri- 
féricos). 


completo 


MICROPROCESADORES 


Es lo mismo que la CPU, 
pero adopta este nombre de- 
bido al reducido tamaño que 
procesadores 


tienen estos 


(CPU). 


RAM (Random Acces Me- 
mory) 


Memoria de acceso aleato- 
rio, es la memoria del orde- 
nador en la que puedo leer y 
grabar datos y programas. 


ME 
ACUERDO LE 
TODO Y WO PUEDES 
CAMBÍARME 


EPROM (Erasable Progra- 
mable Read Only Memory) 


Cumple la misma función 
que un Rom, pero con algo 
más; puedes “*borrar”” la in- 
formación que habías graba- 
do previamente, usando luz 
ultravioleta, y grabarla de 
nuevo con otra información. 


ROM (Read Only Memory) 


Es un tipo de memoria del 
ordenador que está grabada 
con información fija y en la 
que sólo se pueden hacer 
Operaciones de lectura. 
“Nunca”? se olvida de su in- 
formación y no puede cam- 
biarse. 


PROM  (Programable Read 
Only Memory) 


Es una memoria ROM, con 
la diferencia de que se fabri- 
can sin grabar nada, y quien 
va a usar esta memoria escri- 
birá lo que quiera en ella 
utilizando equipos especiales. 
Una vez escritas no se puede 
cambiar su contenido. 


TARJETA 


Es el soporte de los circui- 
tos impresos y componentes. 


Suele ser una placa de ma- 
terial aislante. 


BUS 


Es la conexión a través de 
la cual se mueven los datos e 
instrucciones en el ordena- 
dor. 


BASIC para la Escu 


E/S SERIE 


La 
consiste en mandar la infor- 


transmisión en 


mación bit a bit. 
Se suele hacer cuando las 
distancias son largas. 


BUFFER 


(O Memoria Intermedia) es 
una zona de memoria que se 
utiliza para adecuar oOpera- 
ciones que tienen distinta ve- 
locidad. Por ejemplo, si es- 
tuviésemos sacando informa- 
ción a la impresora, es más 
rápido el proceso que la ve- 
locidad de impresión, enton- 
ces el buffer retiene y dosifica 
esta información para que no 
se pierda. 


ela 


serie 


2-16 


E/S PARALELO 


Se 
tantos bits como tenga la pa- 


transmiten a la vez 
labra del ordenador. 

Esta modalidad es más rá- 
pida, pero también más cara y 
se utiliza en distancias cortas. 


MEMORIA EXTERNA 


Son dispositivos, normal- 
mente magnéticos, donde 
podemos guardar grandes lo- 
tes de información para su 
posterior utilización. 


FLOPPY DISK 


Este es otro de los dispo- 
sitivos magnéticos utilizados 
como memoria externa en 
los ordenadores personales. 
Es un disco magnético flexi- 
ble que puede almacenar 
mucha información. 


CASSETTE 


En un ordenador personal 
podemos guardar informa- 
ción en un cassette. Este es 
uno de los dispositivos mag- 
néticos antes mencionados. 


DISCO DURO 


Es otro medio de almace- 
namiento externo, aunque no 
es tan usual en ordenadores 
personales. Puede almacenar 
una gran cantidad de infor- 
mación. Su precio es más caro 
que los anteriores. 


CRT  (Cathode Ray Tube) 


Pantalla que reproduce la 
imagen de la información 
que tiene el ordenador. 

Es un periférico de salida 
de información. 


TERMINAL 


Es un puesto de trabajo 
remoto, que se comunica 
con el ordenador y puede in- 
troducir y obtener datos y 
programas del ordenador al 
que está conectado. 


P1) 


P2) 


P3) 


REPASO CAPITULO 2 


¿Cuáles son los periféricos más normales en un orde- 
nador personal? 

¿Cuál fue el primer ordenador comercial y en qué año 
apareció en el mercado? 


Una lista de instrucciones que le dice al ordenador lo que 
tiene que hacer y en que orden, es un 
El equipo físico que compone el ordenador, es decir, 
todo aquello que se puede tocar, esel_________ 
¿Cuál es la medida de capacidad correspondiente a 1.024 
bytes? 


No pasar la página hasta haber contestado las preguntas 


planteadas. 


RI) 


R2) 


R3) 


R4) 


R5) 


R6) 


KT), 


a) Teclado 
b) Pantalla 
c) Impresora 
d) Cassette 


UNIVAC I 
Año 1951 


Byte u Octeto 


Programa 


Hardware 


K 


Cassette 
Floppy Disk 


SOLUCIONES 


bb nn Nn 
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CAPITULO 3" 


BASIC 


1. INTRODUCCION AL BASIC 


BASIC son las iniciales de Beginners All-purpose Symbolic 
Instruction Code. Código de instrucción simbólico de uso múl- 
tiple para principiantes. 

El Basic es un lenguaje de programación que se caracteriza 
por su sencillez y versatilidad. Es muy ágil y no responde a 
ninguna estructura preestablecida. 

Maneja un alfabeto compuesto de letras, números y carac- 
teres especiales. 


e letras (A — Z) Mayúsculas y Minúsculas 
e números (0 — 9) 
e caracteres especiales (+,—,*,/,;,””,””,...) 


Veámos un programa escrito en Basic. 


10 REM CALCULO DEL MAYOR DE DOS NUMEROS 
20 INPUT "NUMERO A "”;A 
30 INPUT "NUMERO BD "”;B 


40 IF. A>B THEN PRINT "EL MAYOR ES ";¡A:GOTO 60 
50 PRINT "EL MAYOR ES "”;B 
60 END 


Aquí podemos ver que cada línea tiene un número de 
orden que se llamará n.* de línea; por ejemplo en la línea 50, 


SO PRINT "EL MAYOR ES ”:;B 


e Tenemos un n.* de línea: 50 
e Una instrucción: PRINT 
e Unas expresiones: “EL MAYOR ES =”;B 
e Y al conjunto de PRINT “EL MAYOR ES =” ; lo llama- 
remos sentencia. 
Como podemos ver en la línea 40, dos o más sentencias 
pueden ir en la misma línea separadas por dos puntos (:). 


2. CONSTANTES 


Una constante puede ser un número o un conjunto de ca- 
racteres que no variarán a lo largo de todo el programa. 


Hay dos tipos de constantes: 


a) Numéricas: 


El Basic admite todo tipo de números enteros o decimales, 
por ejemplo 
124.52 
0.072 
37 
pueden ser positivos o negativos 
—378.32 
—0.0032 
tiene otro formato para números demasiado grandes o dema- 
siado pequeños, que se denomina formato Exponencial o 
tipo E; por ejemplo: 
7.420 = 7.42 x 10 
y el Basic nos lo mostrará con el siguiente formato 
X.XXXX E n 
por ejemplo: 
74270000 el Basic lo presenta como 7.427 E 7 
es decir, 
7.427 E 7 = 7.427 x 10' = 74270000 


b) Alfanuméricas: 


Una constante alfanumérica es un conjunto de caracteres 
(números, letras, caracteres especiales) cualquiera, puesto entre 
comillas. 


Ejemplo: 


"JAVIER SERRA” 
"1425 PESETAS" 
"45 AÑOS" 


3. VARIABLES 


El concepto de variable es uno de los más importantes en 
programación. ¿Qué es una variable?; una variable es un espa- 
cio de memoria que el ordenador reserva para guardar un 
valor (numérico o alfanumérico) y ese espacio tiene un nombre 
(nombre de variable) por el cual el ordenador lo reconoce. 

Hay que diferenciar entre nombre de variable y contenido 
de la misma. 


Por ejemplo: 


30 LET A=25+7 


El ordenador reserva un espacio que, a partir de esta ins- 
trucción, lo va a conocer por el nombre de A; y en ese espacio va 
a introducir el valor 32. 

Así pues, Nombre de Variable = A 

| contenido de la Variable = 32 

Siempre que hagamos referencia a A, nos estamos refirien- 

do a un contenido. 


40 LET C::A+ 1 
50 PRINT C 


El ordenador nos imprimirá 33, pues al decirle que nos 
sume a A la constante 1, hará 


C=32+1 


y al decirle que nos imprima C, nos imprime su contenido 
32 +1 33 

El nombre de una variable ha de comenzar siempre por 
una letra, y puede ir seguida de más letras o números. 

Por ejemplo: A, Al, AA, PTS, NOMI1, NID... son 
nombres válidos de variables. 

Hay ordenadores que sólo distinguen los 2 primeros carac- 
teres como nombre de variable, así: 

RA y RADIO, los consideraría como la misma variable. 


Cuando le damos valor a una variable con un signo =, 
debemos de tener en cuenta, que el funcionamiento del signo 
no es el mismo que en Matemáticas. 

Para asignarle un valor a una variable en algunos ordena- 
dores, es necesario utilizar la instrucción LET. 

Por ejemplo: 


10 LET C=20+3 
20 LET D=C+1 
30 PRINT C,D 


El ordenador lo que hace es calcular la parte derecha del 
igual (=), y ese valor lo asigna a la variable que está a la parte 
izquierda. 


En el ejemplo anterior, primero calcula la parte derecha del 
igual de la instrucción 10, 20 + 3 = 23 y ese valor se lo 
asigna a la variable de nombre C. 

En la instrucción 20, calcula la expresión a la derecha del 
igual, 23 + 1 = 24 y se lo asigna a la variable de nombre D. 

Luego este programa imprimirá 


23 24 


Hay dos tipos de variables en relación a su contenido: 
a) Numéricas: que sólo pueden contener valores numéricos. 
b) Alfanuméricas: en las que se pueden guardar cualquier 
conjunto de caracteres (letras, números, 
caracteres especiales). 
Para darles nombre sirven las mismas normas, pero deben 
llevar al final el símbolo $. 


10 LET AS="LUIS” 
20 LET CS=" 357" 
30 PRINT AS,CS 


Este programa imprimirá: 


LUIS 35+7 


4. OPERACIONES Y FORMULAS 


En el lenguaje Basic, hay tres tipos de operadores: 
a) Aritméticos: que indican las operaciones aritméticas ele- 


mentales; suma (+), resta (—), multiplicación (*), divi- 


sión (/) y potenciación ”. 

b) De comparación: que indican la comparación a realizar 
entre constantes, variables, expresiones; igual (=); 
menor que (O; menor oO igual que ESF mayor que 
(>); mayor o igual que (>=); desigual (<>). 

Cc) Lógicos: que se utilizan para unir dos o más condicio- 
nes, los más importantes son: 


— AND — la condición final es cierta si lo son las 
condiciones elementales. 
— OR — la condición final es cierta si al menos es 
cierta una de las elementales. 
— NOT — la condición general es cierta si es falsa la 
condición elemental, y viceversa. 
Ejemplos: 
A = 3 
B 3 
A Z< 4 AND B > 5 -» cierto 
A = 3 AND B < 5 -> falso 


A >0 OR B = 1 > cierto 
A <X0 OR B >38 > falso 
NOTA = 3 —> falso 
NOTB < 5 —= cierto 


Jerarquía de los operadores aritméticos 


El Basic tiene una jerarquía preestablecida según la cual 
evalúa las expresiones numéricas. 


e Primero se ejecutan las exponenciales ” 
e Después las multiplicaciones y divisiones *, / 
e Y por último las sumas y restas +, — 


Las operaciones del mismo nivel se ejecutan siempre de 
izquierda a derecha; y por supuesto, en la ejecución se respeta 
siempre la jerarquía establecida por los paréntesis. 

Vamos a ver cómo se escribirían las fórmulas matemáticas 
en lenguaje Basic para que sean entendidas por el ordenador. 

Una fórmula es una expresión formada por constantes y 
variables relacionadas por los operadores aritméticos. Estas 
fórmulas se computan siempre con los valores actuales de las 
variables; por lo tanto, una fórmula representa siempre un 
número concreto. 


FORMULA NOTACION 
MATEMATICA 


+ E 


_ a 
b(c + d) 


ES c+d 
(a+ b)e+ de» 


FORMULA NOTACION 
MATEMATICA 


FORMULA EN 
BASIC 


a/(b +c) 
a” (b+c) 


a/(b*(c+d)) +e 


a +b/(c +d) 
(a+b)*c+d”(x+y) 


FORMULA EN 
BASIC 


(la +b)*c) * (1/2) 


a 3+b"2 


E Y EY MER $ 


REPASO CAPITULO 3" 


P1) 


P2) 


P3) 


Las instrucciones siguientes son erróneas, ¿por qué? 


10 LET 27=8 
20 LET 14*2+3-C 
10 
30 LET C=-- -- 
3+2 


Sabiendo que las operaciones aritméticas se efectúan en 
un determinado orden, ¿cómo se efectuarán las siguien- 
tes Operaciones dentro del ordenador? 


e 3-4+4+15/3 

. 6/3/2 

e (4+5)/2 + 18 
e 16722 

(25 + 5)*3/(2 + 3) 


Transcribir al lenguaje basic las siguientes fórmulas: 


e — 22 + 5b' + ab 


A a+ 1) mn b(b + 1) 
a 


o. Ga+b) 
7 + 6c 
e (a + b) + EY 


No pasar la página hasta haber contestado las preguntas 
planteadas. 


SOLUCIONES 


R1) 10 LET 27=B 
20 LET 14x2+3=C 


En estos casos el error está en que las asignaciones 
en Basic se hacen tomando el valor de la derecha del 
igual y asignándoselo a la variable que está a la iz- 


quierda. 
10 
30 LET C=---- 
3+2 
., 10 LA 
En este caso, la expresión no está correcta- 
3+2 


mente escrita en Basic, ya que sería: 
30 LET C=10/(3+2) 


R2) e) 34+4+15/3 
e 31-4+44+5 
7+5 
12 
e 6/3/2 
2/2 


1 


R3) 


e (4+5)/2 + 18 
9/2 + 18 
4,5 + 18 
22,5 


e 16/22 
16/4 
4 


e — (25+5)*3/(2 + 3) 
30* 3 /(2 + 3) 
E | as Y 
90/5 
18 


e 22? + 5b' + ab 

En Basic: 2*a"2+5*b"*3+a*b 
e N/ a+b 
En Basic: (a + b)” (1/3) 
a (a + 1) b(b + 1) 
O 
En Basic: a* (a+1)/b+b*(b+1)/a 

(Ba? + b)' 

7 + 6c 

En Basic: (3*a72+b)"3/(7+6*c) 
3 (x + y) 

2a 


e (a+ b) + 


En Basic: (a + b)"2 + 3*(x+y/(Q*a) 


Bb QU N pa 
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CAPITULO 4 


INSTRUCCIONES BASIC 


1. SENTENCIAS E INSTRUCCIONES 


Antes de ver algunas instrucciones del Basic, conviene 
recordar los siguientes conceptos: 

— Instrucción: es la parte de la sentencia que indica la 
operación a realizar, PRINT, LET, INPUT... 

— Sentencia: es el conjunto de instrucción y operandos, 
PRINT A, B; GO TO:60; o. 

— Línea: es una componente del programa, se compone de 
un número de línea y una o varias sentencias separadas 


por dos puntos(:). 


Veámos para qué se utiliza el número que se pone al prin- 
cipio de cada línea de programa. 


Este número le indica al ordenador el orden normal en que 
deben ejecutarse las instrucciones. Además, se puede apreciar 
en ejemplos anteriores que las líneas suelen ir numeradas de 
10 en 10 y, aunque no es obligatorio, es la numeración reco- 
mendada y más usual. 


Veámos qué utilidad tiene mediante un ejemplo. 


10 REM IMPRESION DE DOMICILIO 
20 PRINT "CALLE POBLACION TELEFONO” 
30 PRINT "Lagasca, 23-2 Madrid (91)4413729" 


Este programa nos producirá una salida así: 


CALLE POBLACION TELEFONO 
LAGASCA MADRID (91)4413729 


Si quisiéramos que la cabecera nos saliese subrayada, po- 
dríamos introducir la siguiente instrucción: 


23 PRINT > e 


con lo cual, el programa nos dará el siguiente resultado: 


CALLE POBLACION TELEFONO 


LAGASCA MADRID (91)4413729 


Es decir, podemos intercalar instrucciones en un programa 
introduciéndolas con el número de línea correspondiente al 
lugar que queremos que ocupe. 


2. INSTRUCCIONES 


REM: COMENTARIOS 


Es bastante frecuente la necesidad de manejar programas 
elaborados por otras personas, o elaborados por uno mismo, 
pero bastante tiempo atrás. 

Si no se han puesto líneas de comentarios a lo largo de 
todo el programa nos será muy difícil hacer un seguimiento del 
programa a través de un listado, por eso es recomendable el 
uso de la instrucción REM. 


n.* de línea REM (comentario) 


La instrucción REM no se ejecuta, es decir, el Basic la 
ignora, la única finalidad que tiene es la documentación de 
listados. 


Ejemplo: 


10 REM PROGRAMA SUMA DOS NUMEROS 
20 REM AUTOR:Javier Serra 


30 REM FECHA: 14-Agosto--1984 
40 INPUT A 
SO INPUT B 


60 LET C::A+B : REM SUMA DE A y B 
70 PRINT "La suma de A y Des = ";¡C 


En algunos ordenadores la instrucción REM se puede sus- 
tituir por: 

— un signo de admiración (!) 

— un apóstrofe o comilla simple (”) 


END : FIN 


Está será la última sentencia del programa que se ejecutará 
y hace que el ordenador de por finalizado el programa, que- 
dando dispuesto para realizar otro trabajo cualquiera. 

En algunos ordenadores no es obligatoria su utilización 
pero nosotros la utilizaremos y la pondremos al final de nuestros 
programas. 


n.* de línea END 


10 REM PROGRAMA DEL AREA DEL CUADRADO 
20 INPUT "Entrar el lado= ”;L 

30 LET A=LXL 

40 PRINT "El area del cuadrado es = ";A 
50 END 


LET : ASIGNACION 


Esta instrucción se utiliza para asignarle un valor a una 


variable: 


Tiene el siguiente formato: 


n.” línea LET Variable = expresión 


El ordenador, cuando se encuentra una instrucción LET, 
calcula el valor de la expresión y se lo asigna a la variable. 


Por ejemplo: 


100 LET A=25*10/2 


Una vez ejecutada esta sentencia, A tendrá el valor de 125. 
En algunos ordenadores, esta instrucción no es necesaria. 


Ejemplos: 


10 REM PROGRAMA EJEMPLO UNO 
20 LET A5="Buenos dias ” 

30 LET BS="JUAN: ” 

40 PRINT BS;¡AS 

50 END 


JUAN: Buenos dias 


10 REM PROGRAMA EJEMPLO DOS 
20 REM POTENCIAS DE DOS 

30 LET A=2*2 

40 LET B=A*2 


GO PRINT A” "9" ":c 
70 END 


48 16 


INPUT : ENTRADA DE DATOS POR TECLADO 


Formato: 
n.? línea INPUT “MENSAJE””; Variable 


Esta instrucción al ser ejecutada presenta en pantalla el 
“mensaje” y solicita al operador que le introduzca por medio 
del teclado un valor numérico o alfanumérico que le será asig- 
nado a la variable. 

Dentro de una sentencia INPUT el mensaje es opcional. Es 
decir, puede ponerse o no, es más, hay ordenadores que no 
permiten el mensaje dentro del INPUT, esto se podría sub- 
sanar utilizando una sentencia PRINT, por ejemplo: 


PRINT "MENSAJE"; 
INPUT Variable. 


esto sería similar al formato anterior, en el caso de que la 
instrucción INPUT no admitiese un mensaje. 

También admite más de una variable en la misma instruc- 
ción, separadas por comas, como consecuencia; a la hora de 
introducir los valores debemos hacerlo en el mismo orden y 


cantidad que las variables. 


Ejemplos: 


10 REM PROGRAMA EJEMPLO INPUT 

20 INPUT "Entrar nombre: "¡NOS 

30 INPUT "Entrar edad: "E 

40 INPUT "Entrar Calle y Poblacion: ";CS,PS 
50 PRINT NOS” ";E;" ajos” 

60 PRINT CS 

70 PRINT PS 

80 END 


La ejecución de este programa producirá: 


LUIS 29 AÑOS 
CRUZ 
GERONA 


ENTRAR NOMBRE? LUIS [RETURN 
ENTRAR EDAD? 29 |[RETURN 
ENTRAR CALLE Y POBLACION? CRUZ, GERONA 


El operador O usuario del ordenador tecleará los datos que 
están a la derecha del ?, si en algún caso al teclear el dato nos 
equivocamos de tipo (es decir, que el dato no corresponde con 
el tipo de variable) nos dará un mensaje de error “REDO 
FROM START” y volverá a pedirnos el dato. 

Por ejemplo, si en lugar de darle 29 en la edad le diésemos 
veintinueve, nos daría dicho error, pues en una variable numé- 


rica no podemos introducir valores alfanuméricos. 


Si este ordenador no permitiése la utilización de mensaje en el 
INPUT, podríamos sustituir las instrucciones como sigue: 


20 PRINT "Entrar nombre: ”; 
25 INPUT NOS 


PRINT : PRESENTACION DE RESULTADOS 

Esta instrucción se utiliza para imprimir textos, variables o 
expresiones. 

Normalmente la instrucción PRINT provoca la salida de 
datos en la pantalla del ordenador; la instrucción para la 
salida de datos por impresora (si disponemos de ella) es 
LPRINT, las normas son comunes para las dos. 


Su formato es: 


(n.* de línea) PRINT (expresiones y/o variables y/o textos) 


Podemos imprimir: 
e Variables 


100 PRINT AS, B, C$ 


En cuyo caso saldrán en pantalla los contenidos de las 
variables. 


e Constantes y expresiones 


100 PRINT “LUIS”, 25, 32 + 4 


En cuyo caso el resultado será la impresión del valor cons- 
tante o el resultado de la expresión: 


LUIS 25 36 


Las constantes alfanuméricas deben ir entre comillas (?”). 
e Una línea en blanco 


100 PRINT 


Esta instrucción imprime una línea en blanco; es decir, no 
imprime nada pero provoca un espacio entre líneas. 

Cuando se escriben varios términos dentro de una sentencia 
PRINT, estos términos deben estar separados por coma(,) 
punto y coma(;) o TAB. 

— Coma: cuando en una sentencia PRINT los términos 
están separados por comas, el ordenador divide la línea 
de impresión en unas zonas de igual longitud (normal- 
mente 4) e imprime cada término en una de las zonas. 


100 PRINT “LUIS”, “JAVIER”, “JOSE” 
LUIS JAVIER JOSE 
zona 1 zona 2 zona 3 


— Punto y coma: si los términos van separados por punto 
y coma (;), el ordenador imprime todos, uno a conti- 
nuación de otro, sin dejar espacios en blanco. Si uno de 
los términos fuese un número positivo, aparecerá un 
espacio en blanco antes del número que corresponde al 
signo. Si una sentencia PRINT acaba con un (;) la si- 
guiente impresión se hará en la misma línea a continuación 


de la última impresión. 


— TAB: este es un separador de tabulación que nos per- 
mite decir a partir de.qué posición queremos que nos salga 
la impresión. 


100 PRINT TAB(10) “LUIS” TAB(0) “JAVIER” 
TAB(30) “JOSE” 


LUIS JAVIER JOSE 
Posición M0 M0 Wo 


Ejemplos: 


10 PRINT 1,2,3 
20 PRINT 1;2;3 
30 END 


123 


10 LET AS="LUIS" 

20 LET BS="ANDRES” 

30 LET ess” * 

40 PRINT AS;CS;BS 

50 PRINT AS;BS 

60 PRINT AS,BS 

70 PRINT TAB(S)AS TAB(15)B5 


LUIS ANDRES 
LUISANDRES 
LUIS ANDRES 
LUIS ANDRES 


READ — DATA — RESTORE 


Las sentencias READ y DATA se utilizan conjuntamente 
para asignar valores a variables. 
El formato de la sentencia READ es el siguiente: 


(n.? de línea) READ Vi, V>, V» ..... , Vo 


donde V,, V, ..., V, representan variables a las que hay que 
asignar un valor. 

Los valores que queremos asignar a las variables de la sen- 
tencia READ, se los daremos por medio de una sentencia 
DATA, que tiene el formato: 


(n.” de linea) DATA XX cs XA 


donde X,X,... X, son los valores asignados a V,, V,..., V, 

Estos valores, al igual que las variables en READ, están 
separados por comas y se escribirán en el mismo orden que las 
variables a las que van a asignarse. 


10 READ A,B,C,D,E,F,G,H,!,J 
20 DATA 1,2,3,4,5,6,7,8,9,10 


Ejemplos: 


30 PRINT A;B;C;D;E;F;G;H;!;J 
40 END 


12343678910 


Se asignan los valores de l a 10 a 10 variables. 


10 DATA 1,2,3,4 

20 READ A,B,C,D,E,F,G,H,!,J 
30 DATA 5,6,7 

40 DATA 8,9,10 

50 PRINT A;B;C;D;E;F;G;H;1;J 
60 END 


123435678910 


Las sentencias 10, 20, 30, 40 tienen el mismo efecto que las 
sentencias 10 y 20 del ejemplo anterior. 

Una sentencia DATA en un programa no necesita corres- 
ponderse con una sentencia READ específica. Esto es debido a 
que se crea un archivo de datos antes de la ejecución del pro- 
grama (el archivo interno). Contiene todos los valores de las 


sentencias Data en el programa en el orden de su aparición por 
número de línea. 


Cada vez que se ejecuta una sentencia Read le asigna los 
valores necesarios y se queda apuntando al siguiente valor que 
tiene que asignar. 

La sentencia RESTORE hace que el siguiente valor a asig- 
nar vuelva a ser el primero, es decir, restaura el apuntador al 


siguiente valor a asignar. Con lo cual podemos volver a uti- 
lizar las listas de valores de todas las sentencias DATA ante- 
riores al RESTORE. 


Más ejemplos: 


10 READ A,B,C 

20 DATA 1,2,3,4,5,6,7,8,9,10 
30 PRINT A;D;C 

40 READ D,E,F,G 

50 PRINT D,E,F,G 

60 END 


No es preciso leer todos los valores de archivo de datos a la 
vez. 


10 READ A,B,C,D,E 
20 DATA 1,2,3,4 
30 END 


OUT OF DATA 


Dará error si tratamos de leer más valores de los que hay 


rd 


en el archivo de datos. 


10 READ A,B,C 

20 DATA 15,25,35,5,6,12 
30 PRINT A;B;C 

40 RESTORE 


50 READ X,Y,Z 
60 PRINT X,Y,Z 
70 ,END 


152335 
13 23 39 


Vemos como el RESTORE nos permite volver a asignar los 
valores desde el principio. 


10 DATA "Mayor”,45,3 

30 READ DOMICILIOS,NUMERO,PISO 
40 RESTORE 

60 READ DOMICIL 15,NUMER1,P1S 1 
70 DATA "Luis”,24,1 

80 DATA "Jose",30,2 

90 READ NOMBRES,EDAD,PUERTA 
100 READ NOMBR15,EDA1,PUERT 1 


Vemos como utilizando el RESTORE podemos utilizar los 


datos comunes para Luis y José que son vecinos y viven en el 
mismo piso. 


NOMBRES 
EDAD 
DOMICILIOS 
NUMERO 
PISO 
PUERTA 
NOMBRI$ 
EDAI 
DOMICILIIS$ 
NUMER l 
PISI 
PUERTI 


3. FUNCIONES 


Hay una serie de funciones que se utilizan con mucha fre- 
cuencia. Sería, pues de gran utilidad tenerlas definidas siempre 


para poder usarlas cuando conviniera. EL BASIC nos da la fa- 
cilidad de tener algunas ya predefinidas para facilitar nuestra 


tarea de programas. 


Veámos las más elementales. 


ABS (X) 
Nos devuelve el valor absoluto de X 
PRINT ABS (7*(-—5)) 
35 * 
ATN (X) 


Nos devuelve el valor del arco (en radianes) cuya tangente 
es X 


PRINT ATN (3) 
1.24905 


COS (X) 


Nos devuelve el coseno de X, siendo X un ángulo expre- 
sado en radianes. 


PRINT 2 * COS (.4) 
1.84212 


EXP (X) 
Nos devuelve el valor e: (e = 2.718282) 


PRINT EXP (4) 
54.5981 


INT (X) 


Nos devuelve el valor del mayor número entero que sea 
igual o menor que X. 


PRINT INT (3.24) 
3 
PRINT INT (-3.24) 
dd 


LOG (X) 


Nos devuelve el logaritmo en base e de X. 


PRINT LOG (45/7) 
1.86075 


RND (X) 


Nos devuelve un número al azar de valor comprendido 
entre 0 y 1. Es posible conseguir que estos números aleatorios 
estén comprendidos en otro margen cualquiera usando la 
fórmula: 


(B—A) * RND (0) + A 


Así los números aleatorios generados serán A<n<B. Nor- 
malmente la X no tiene significado, aunque hay ordenadores en 
los que si queremos obtener números aleatorios entre 1 y N, po- 
dremos poner RND (N). 


SGN (X) 


Nos devuelve +1 si X es positivo, —1 si es negativo y 0 si 
el valor de X es nulo. 


PRINT SGN (—7) 
—1 

PRINT SGN (0) 

0 

PRINT SGN (7) 

1 


SIN (X) 


Nos devuelve el seno del ángulo (X) que debe de estar 
expresado en radianes. 


PRINT SIN (1.5) 
.997495 
SQOR (X) 


Nos devuelve la raíz cuadrada del argumento (X). 


PRINT SQR (10) 
3.16228 


TAN (X) 


Nos devuelve la tangente del ángulo (X) que debe de estar 
expresado en radianes. 


DEF FNK (X) 


En algunos programas podemos tener fórmulas matemá- 
ticas que se repitan con cierta frecuencia a lo largo del pro- 
grama. El BASIC nos permite definir nuestra propia función, 
que después podemos llamar como si se tratase de una función 
trigonométrica, de las vistas anteriormente. La función sólo se 
define una vez al principio del programa. 


Para definirla se escribe primero la sentencia DEF y des- 


pués tres letras de las cuales, las dos primeras han de ser 
siempre FN. 


n.?” de línea DEF FNK (X) = función (X) 


Ejemplo: 


10 DEF FNA(X)=(X4 XX O 1)) 
20 PRINT FNA(2) 
30 END 


4. CADENAS DE CARACTERES Y VARIABLES 
DE CADENA 


El Basic también permite el manejo de cadenas alfanumé- 
ricas, ya sean constantes o variables. Recordemos que las cons- 
tantes han de ir cerradas entre comillas y las variables tienen 
que llevar un símbolo $ detrás del nombre de variable. 

Los espacios en blanco se consideran en Basic como carac- 
teres. Así la cadena: 


“LUIS MANUEL” 
será diferente de la cadena 
““LUISMANUEL”” 


Con las cadenas alfanuméricas se puede efectuar la opera- 
ción de concatenación (+). 


Ejemplo: 


10 LET AS="Juan" 

20 LET BS=" *” 

30 LET CS="Jose"” 

40 LET DS=AS+B5+C5 

50 LET ES=AS+CS 

60 LET FS=AS+" "+"ALFONSO” 
70 PRINT DS 

80 PRINT ES 

90 PRINT FS 
100 END 


Juan Jose 
JuanJose 
Juan ALFONSO 


Una cadena que contenga números como **795””, no tiene 
sentido numérico y no se debe de confundir con la constante 
numérica 795. 


La longitud máxima de una cadena es 255 caracteres. 


P1) 


P2) 


ES) 


P4) 


P9) 


REPASO CAPITULO 4 


Decir qué imprime el siguiente programa: 


10 REM DIFERENCIAS DE IMPRESION 
20 LET A=S0 

30 PRINT A 

40 PRINT "A" 

SO END 


Qué salida hará por pantalla el siguiente programa: 


10 PRINT 3+2 
20 PRINT "3 + 2" 
30 END 


Hacer un programa que me imprima la suma y la resta de 
dos números entrados por teclado. 


Hacer un programa que, entrándole el radio, nos calcule 
la longitud de la circunferencia y nos la imprima. 


Hacer un programa que, entrando la base y la altura de 
un triángulo rectángulo, nos dé la base, la altura y el 


área. 


P6) Hacer un programa que, entrando 3 números, nos diga su 
suma y su media aritmética. 


P7) Hacer un programa que, dándole los grados, nos dé seno, 
coseno y tangente. 


P8) Hacer un programa que, dado un número positivo, nos dé 
el logaritmo decimal. 


P9) Qué valor se imprimirá cuando se ejecute el siguiente 
programa: 


10 LET NS$="AGOSTO" 

20 LEY DS="LUNES” 

30 LET ES="DIEZ" 

40 LET BS=" ” 

50 LET FES=D5+B5+ES+B5+"de"+B5+NS 
60 PRINT "fecha:”";¡BS;FES 


P10) Hacer un programa que, dándole la distancia en Km. y el 
tiempo en horas empleado, nos calcule la velocidad. 


P11) Hacer un programa que dándole los catetos de un trián- 
gulo restángulo nos calcule la hipotenusa. 


No pasar la página hasta haber realizado los ejercicios 
planteados. 


R1) 


R2) 


R3) 


R4) 


R5) 


20 
30 
40 


SOLUCIONES 


REM SUMA y RESTA 

INPUT "Teclea DOS numeros: ”;A,D 
LET S:-:A+B 

LET R=A-B 

PRINT "La suma es: ";S 

PRINT "La resta es=";R 

END 


REM LONGITUD DE LA CIRCUNFERENCIA 

INPUT "Teclea el radio: ”;R 

LET Pl=3.14159 

LET L=2*PIXR 

PRINT "La longitud de la circunferencia mide: "”;L 
END 


REM AREA DE UN TRIANGULO 

INPUT "Cuanto mide la Base?.... ";B 
INPUT "Cuanto mide la Altura”.. ";A 
LET AREA=:B*A/2 


50 PRINT "BASE=  ”;B 

60 PRINT "ALTURA=";A 

70 PRINT "AREA= "¡AREA 
80 END 


R6) 
10 REM SUMA Y MEDIA ARITMETICA 
20 INPUT "Teclea TRES numeros: ”";A,B,C 
30 LET S-A+B+C 
40 M=S/3 
50 PRINT "La SUMA es = ";S 
GO PRINT "La MEDIA ES= ";M 
70 END 


R7) Para pasar los grados a radianes 
Angulo * 3.14159 / 180 


10 REM CALCULO SENO COSENO TANGENTE 

20 INPUT "Grados del ANGULO a convertir?..."¡ANG 
30 LET S:=SIN(ANG*3.14159/180) 

40 LET C-COS(ANG*3.14 159/180) 

50 LET T=TAN(ANGX*3.14 159/180) 


60 PRINT "SENO=: 5 
70 PRINT "COSENO= os 
80 PRINT "TANGENTE=  ";T 
90 END 


R8) Para calcular un logaritmo en base decimal 


10 REM LOGARITMO DECIMAL 
20 INPUT "Teclea un numero positivo: ":N 


R9) 


R10) 


R11) 


30 LET R=LOG(N)/LOG(10) 
40 PRINT "El log.decimal de: ";N;”"Es igual a ";R 
SO END 


fecha: LUNES DIEZ de AGOSTO 


10 REM CALCULO DE VELOCIDAD 

20 INPUT "Distancia en Kilometros?... ";K 

30 INPUT "Tiempo en Horas?........... “sH 

40 LET V=K/H 

SO PRINT "La VELOCIDAD es de ";v;”" Km/Hora"” 
60 END 


10 REM CALCULO DE LA HIPOTENUSA 

20 INPUT "Teclea la medida de los CATETOS: ”;A,B 
30 LET H=SQR(A*2+B*2) 

40 PRINT "La HIPOTENUSA MIDE: "0H 

50 END 


N bh YY N pá 
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CAPITULO 53 


BUCLES Y TRANSFERENCIAS 
DE CONTROL 


A 
A 

AUN QUEDAN 
IO VUELTAS 
FARA ACABAR 


1. FOR ... NEXT 

:A menudo necesitamos que el ordenador repita una serie de 
intrucciones muchas veces para distintos valores de una varia- 
ble que se va incrementando cada vez en un valor determi- 
nado. Para conseguirlo nos son de gran utilidad los bucles 
FOR ... NEXT. | 


Estas sentencias se encargan de que se recorra el cuerpo del 
bucle las veces indicadas, mediante una condición. 


Veámos el formato de una instrucción FOR ... NEXT: 


n.* línea FOR X = V1TO V2STEP V3 
n.* línea NEXTX 


Donde X es el nombre de la variable, y Vl1 V2 V3 son 
cantidades numéricas, que pueden ser. constantes, expresiones 
o variables. 

V1 — es el valor inicial que toma X 

V2 — es el valor final que toma X 

V3 — es el incremento que tendrá X 


Es decir, entre FOR y NEXT estará el cuerpo del bucle que 
no es ni más ni menos que un conjunto de instrucciones. 

Cuando se ejecuta el FOR X toma el valor V1 y ejecuta el 
cuerpo del bucle con ese valor, al llegar al NEXT, el valor de 
X se incrementa en V3 y vuelve a ejecutar el cuerpo del bucle 
con ese nuevo valor, esta operación se repite hasta que al 
ejecutar el NEXT el valor X sea igual o mayor que V2. 

Si se omite el valor V3 se supone que el incremento es 1. 


Ejemplo: 


10 INPUT "Dime tu nombre............ ":AS 
20 INPUT "Numero de repeticiones?... ”:N 
30 FOR I=1 TO N 

40 PRINT AS 


50 NEXT 1 


DIME TU NOMBRE LUIS MANUEL RETURN 
NUMERO DE REPETICIONES 5 RETURN 


LUIS MANUEL 
LUIS MANUEL 


LUIS MANUEL 
Para imprimir los cuadrados de los 5 primeros números: 


10 FOR 11 TO S 
20 PRINT 192,1 
30 NEXT 1 

40 END 


1 
4 
9 
16 
23 


n*un 7 


Para imprimir los números pares entre 20 y 30: 


10 REM PARES DEL 20 al 30 
20 FOR 1=20 TO 30 STEP 2 
30 PRINT 1 

A0 NEXT 1 

50 END 


Utilizando cadenas: 


10 DATA rs > al tar E > e e. 
e a a A a ei cid 

20 FOR 1=1 TO 19 

30 READ AS 

40 LET CS=C5+AS 

50 NEXT | 

60 PRINT CS 

70 END 


Hola amigo que tal? 


2. BUCLES ANIDADOS 


Dentro de un For ... next, podemos encontrarnos otro 
For ... next; éste es el caso de los bucles anidados. Pero de- 
bemos tener en cuenta que el primer FOR que se encuentra en 
sentido descendente ha de corresponder al último NEXT encon- 
trado, y el último NEXT debe corresponder al primer FOR. 

Es decir, han de tener la estructura correspondiente a los 
siguientes gráficos: 


Ejemplos: 


F F F 
L N On Correctos 


F 


Incorrectos 
N 


10 REM EJEMPLOS 

20 FOR l=1 TO 4 

30 FOR J=10 TO 40 STEP 10 
40 PRINT 1% "y" "y 

SO NEXT J 

60 NEXT 1 

70 END 


1 
1 
1 
1 
2 
2 
2 
2 
3 10 13 
3 
3 
3 
A 
4 
4 
4 


Veámos el siguiente ejemplo: 


Queremos evaluar la fórmula 
C=(1+R)AT 
R puede valer = 0.01, 0.05, 0.09 


T puede valer = 1 y 3. 


Es decir, 
1 =1yYR <= 0.:01,.0.05, 0.09 
T=>3Y.R = 0.01,,0.05, 0,09 


10 

20 
30 
40 
50 
60 
70 
80 


REM EVALUAR FORMULA 

FOR T=1 TO 3 STEP 2 

FOR R=0.01 TO 0.09 STEP 0.04 
LET C=(1+R)4T 

PRINT T,R,C 

NEXT R 

NEXT T 

CNO 


FOR A 


FOR B 


... 


NEXT B 


NEXT A 


e Para cada valor de la variable del ciclo exterior (A), la 
variable del ciclo interior (B) recorre todos los valores. Es decir, 
el ciclo interior se realiza por completo. 

Cuando el ciclo interior se ha completado, el control pasa a 


las instrucciones 


siguientes en el ciclo exterior. El proceso con- 


tinúa hasta completar el ciclo exterior. 
e Puede haber varios ciclos anidados. 
e Cada ciclo ha de tener una variable contador diferente. 
e Los ciclos no pueden solaparse. 


FOR A —— 

F cs 

A no es válido 
NEXT B 


Estudiar y analizar el siguiente ejemplo: 


10 FOR X=2 TO 9 
20 PRINT TAB(X- 1); 
30 FOR A=1 TO 8 
40 PRINT "4"; 
50 NEXT A 

60 PRINT 

70 NEXT X 

80 END 


E Y 4 4440414 
HARD AAA 
4004404400018 
RHR2ANAAAAA A 
BARA 
144444 40.4600$/ 


424040044 Y A 


4144 AAA 


3. BIFURCACION INCONDICIONAL — GOTO 


Luís RICARDO 
ao 70.-- 


S 


Las instrucciones en el lenguaje Basic se ejecutan normal- 
mente según el orden creciente de sus números de línea. Pero a 
veces es necesario alterar este orden normal de ejecución y 
““saltar”” a una línea posterior o anterior. Este es el papel de la 
intrucción GOTO. 

Su formato es: 


(n.? de línea) GOTO n.? línea 


Cuando se ejecuta una instrucción GOTO, en lugar de eje- 
cutar luego la siguiente instrucción, salta a la línea cuyo 
número aparece a la derecha de la sentencia GOTO, y la 
ejecuta. 


10 REM EJEMPLO 
20 PRINT "Hola !!!” 
30 GOTO 20 

40 END 


Este programa no se acabará nunca, pues cuando llega a la 
instrucción 30 vuelve a la 20 y nunca ejecutará la 40. 


4. IF ... BIFURCACION CONDICIONAL 


— IF... GOTO 


Por medio de esta sentencia, el programa comprueba una 
condición y, dependiendo de su veracidad, transfiere el control a 


la línea de programa indicada. 


n.* línea IF condición GOTO  n.? línea 


Esta condición suele ser una comparación mediante opera- 
dores de relación vistos en capítulos anteriores (< , pr <> 0 


e de, 


Se pueden comparar variables, constantes y expresiones, ya 
sean numéricas o alfanuméricas. 


10 REM EJEMPLO 

20 INPUT "Teclear un NUMERO: ";N 
30 IF N>=0 GOTO 60 

40 PRINT "El NUMERO es negativo” 
50 GOTO 70 

60 PRINT "El NUMERO es positivo” 
70 END 


Otro formato: 


— IF... THEN 
(n.? línea IF condición THEN (n.? línea) o Instrucción 


Su utilización es similar a la anterior. Es decir, si se cumple la 
condición, puede transferir el control al n.* de línea especificada 
o realizar la instrucción indicada. 


Veámos algunos ejemplos: 


10 REM SUMAR NUMEROS 


20 INPUT "Dime un numero (del 1 al 100) ?... ";A 
30 IF A>100 OR A<XO GOTO 20 
40 INPUT "Dime un numero (del 1 al 100) ?... ”;B 


50 IF B>100 OR B<O GOTO 40 


60 LET C=A+B 
70 PRINT TAB(13);A 

80 PRINT TAB(11);"+ ";B 
90 PRINT TAB(12);” " 


100 PRINT TAB(13);C 


DIME UN NUMERO (1—-100)? 56 RETURN 
DIME UN NUMERO (1—-100)? 75 RETURN 


Las instrucciones 30 y 50 nos sirven para comprobar que 


los númer 


10 

20 
30 
40 
50 


100 
110 
120 


os a sumar están comprendidos entre 1 y 100. 


REM PROGRAMA PARA COMPARAR DOS NUMEROS 
INPUT "Introduce DOS numeros: ”;A,B 

IF A>B GOTO 70 

IF A<XB GOTO 90 


REM ACABA LA EJECUCION CUANDO A=B 
GOTO 110 

PRINT A;” es MAYOR que ”;B 

GOTO 20 

PRINT A;” es MENOR que "”;B 

GOTO 20 

PRINT "Finalizado el trabajo” 


— > 


introduce DOS numeros: 10, 12 
10 es MENOR que 12 

introduce DOS numeros: 15, 8 
15 es MAYOR que 8 

introduce DOS numeros: 10, 10 
Finalizado el trabajo 


5. GOSUB Y RETURN 


Una subrutina es una secuencia de instrucciones que reali- 
zan una Operación o trabajo que se utiliza en más de un punto 
del programa. | 

A estas subrutinas, nomalmente, se las sitúa al final del 
programa, antes de la sentencia END. El manejo de las 
mismas se lleva a cabo con las instrucciones GOSUB y 
RETURN. 


Su formato es: 
n.* línea GOSUB n.* de línea 


Cuando el programa se encuentra con esta sentencia trans- 
fiere el control o bifurca al número de línea especificado y 
empieza a ejecutar las instrucciones de la subrutina, hasta que 
se encuentra con una instrucción RETURN, que hace que 


vuelva a la línea siguiente a aquella en la que se encontró el 


GOSUB. De este modo el programa continuará su proceso en 
el mismo punto donde había interrumpido su ejecución. 


Veámos un programa que utiliza GOSUB y RETURN 


10 REM PROGRAMA SUBRUTINA 

20 DATA 4,7,12,22,-1 

30 DATA 48,13,125,-1 

40 DATA 125,13,63,45,46,83,-1 

50 GOSUR 200 

60 MI=M 

70 GOSUB 200 

80 M2=M 

90 GOSUB 200 

100 M3=M 

110 PRINT "La MEDIA de la primera serie= ”;M1 
120 PRINT "La MEDIA de la segunda serie= ";M2 
130 PRINT "La MEDIA de la tercera serie= ";M3 
140 END 


200 REM SUBRUTINA 
210 N=0 

220 S=0 

230 READ X 

240 IF X<O THEN 280 
250 S=S+X 

260 N=N+1 

270 GOTO 230 

280 M=S/N 

290 RETURN 


UNEN=>4 


e 2 RES 
NÓ A LS AY =UE ] == 


P1) 


Pz 


P3) 


P4) 


PI) 


P6) 


Sh) 


REPASO CAPITULO 5% * 


Hacer un programa que escriba 100 veces vuestro 
nombre. | 


Hacer un programa para calcular las raíces de una ecua- 
ción de 2% grado. 


Hacer un programa que nos dé la tabla de multiplicar 
del 9, de la forma: 
A 


Hacer un programa que nos calcule el siguiente número: 
= 1 + 1/2 + 1/3 + 1/4 + ... + 1/100 


Lo mismo para: 
b = 1/2 + 1/4 + 1/6 + 1/8 + ... + 1/100 


Lo mismo para: 
= 1/2. + 1/4 € 1/8 + 1/16 + ... + 1/512 


Hacer un programa que le introduzcamos 20 números 
- y nos dé su suma y su media aritmética. 


P8) Hacer un programa que introduciéndose 20 números 
positivos, nos diga cual es el mayor y su: número de 
orden respecto a la entrada. 


No pasar la página hasta haber realizado los ejercicios 
planteados. 


R1) 


R2) 


R3) 


SOLUCIONES 


10 REM PROGRAMA NOMBRE 

20 INPUT "Dime tu nombre?... "NS 
30 FOR I=1 TO 100 

40 PRINT NS 

SO NEXT 1 

60 END 


10 REM ECUACIONES DE SEGUNDO GRADO 
20 INPUT "Valor de A ";A 

30 INPUT "Valor de B "”;B 

40 INPUT "Valor de C ";C 

SO LET X1=(-B+(SQR(B"2-AXC))/(2xA)) 

60 LET X2=(-B--(SOR(B"2-A*C))/(2*A)) 

70 IF (B%2-4xA*C)<O THEN 40 

80 PRINT "X1i= ";x1 

90 PRINT "Xx2= ";x2 


100 END 


10 REM TABLA DE MULTIPLICAR 
20 FOR I=1 TO 9 

30 PRINT "9 x "¡1 " = "¡9x1 
40 NEXT | 

50 END 


R4) 


R5) 


R6) 


R7) 


R8) 


10 REM SERIE A 

20 FOR 1=1 TO 100 

30 LET S=5+1/1 

40 NEXT | 

50 PRINT "El numero es= ";S 


10 REM SERIE B 

20 FOR I=2 TO 100 STEP 2 
30 LET S=S+1/1 

40 NEXT 1 

SO PRINT "El numero es: ";S 


10 REM SERIE C 

20 FOR I=1 TO 9 

30 LET S=S+1/2%1 

40 NEXT 1 

SO PRINT "El numero es: ";S 


10 REM SUMA Y MEDIA 

20 FOR 1=1 TO 20 

30 INPUT "ENTRAR NUMERO: *”;N 
40 LET S::S+N 


SO NEXT 1 

60 PRINT "La suma de los 20 numeros es: ”;S 
70 PRINT "La media aritmetica es: ":5/20 
80 END 


10 REM BUSQUEDA DEL MAYOR 
20 FOR I=1 TO 20 


30 
40 
50 
60 
70 
80 


INPUT "ENTRAR NUMCRO: ";N 

IF N>C THEN LET C=N:LET K=1 

NEXT 1 

PRINT "El MAYOR es: "e 

PRINT "Ha sido introducido en la ";K;" posicion” 
END 


INDICE DE CAPITULO 
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CAPITULO 6 


LISTAS Y TABLAS 


1. VARIABLES DIMENSIONADAS 


Hasta el momento, hemos visto variables que contienen un 
solo valor y tienen un nombre de variable. El Basic nos per- 
mite utilizar otro tipo de variables, formadas por un nombre 
de variable y un número natural entre paréntesis. 

Una lista o tabla es un conjunto de elementos dispuestos en 
forma adecuada y que guardan una relación concreta entre sí. 


Antes de utilizar una lista, debemos decirle al ordenador de 
qué tipo y qué longitud va a tener, para que éste prevea el 
espacio que va a necesitar en la memoria. Esto se llama Di- 
mensionar y se utiliza la instrucción: 


n? línea DIM nombre de variable (n” de elementos) 


Por ejemplo: 


10 DIM M5$(12) 
Esta instrucción me reservaría 13 variables alfanuméricas 


que las podría distinguir por sus subíndices y serían: (M$(0), 
M$(1), MS() ... M$(12)). 


NOTA: 


Si no necesito que me reserve el M$(0), pues prefiero que el 
subíndice empiece por el valor 1, algunos ordenadores utilizan 
la instrucción: n* linea OPTION BASE 1. 


En nuestro ordenador esto no es posible. 


Ejemplo: 


10 DIM mS(12) 
30 DATA ENERO,FEBRERO,MARZO,ABRIL,MAYO 


40 DATA JUNIO, JULIO,AGOSTO,SEPTIEMBRE 


50 DATA OCTUBRE,NOVIEMBRE, DICIEMBRE 
60 FOR I=1 TO 12 

70 READ MSI) 

80 NEXT 1 


Esta parte de programa nos ha creado una lista en Memo- 
ria en la que he guardado los meses del año, de la forma si- 


guiente: 
MS(D)=ENERO 
MS(2)=FEBRERO 
MS( 12)=DICIEMBRE 
mé (12) 


an la 3 JE DNSIS 
E . = 
il bla o. m$ (1) [m4 (8) 40) má (10) fue ne al 


Siguiendo con el programa anterior: 


90 INPUT "Numeros de mes: <?> , Fin: <0>";Y 
100 IF Y=0 GOTO 140 

110 IF Y<O OR Y>12 GOTO 90 

120 PRINT "EL MES ES: ";¡MS(Y) 

130 GOTO 90 

140 END: 


Como vemos, este programa nos pasará el número de mes 
a su nombre escrito. 


Un problema que se suele presentar con frecuencia será 
encontrar el mayor de los números de una lista y el lugar que 
ocupa en ella. Por ejemplo: 


P(D P(2) P(3) P(4) P(5) P(6) P(7) P(8B) 
6 1'W 9 2-3 -1 23 4 
el mayor es el 23 y la posición que ocupa la 7. 

El tamaño de la lista del ejemplo hace que no reparemos en 
todo el proceso que supone la búsqueda de valor más alto. 
Pero si nos imaginamos una lista de 1.000 elementos, necesita- 
remos recorrernos la lista de principio a fin. Utilizaremos una 
variable M para guardar el mayor en cada momento y una 
variable P para recordar la posición del último mayor encon- 
trado. 


Veámos: 


10 REM BUSQUEDA DEL MAYOR 


30 DIM P(100) Generación de 
40 FOR I=1 TO 100 la lista por 
50 LET P(I)=RND(I)*100 


n.” aleatorios 


60 NEXT 1 


100 LET M=P(1) 

110 LET P=1 

120 FOR I=2 TO 100 
130 IF. M>P(I) GOTO 160 
140 LET M=P(1) 


150 LET P=1 

160 NEXT 1 

170 PRINT "El numero MAYOR de la serie es el: ";M 
180 PRINT "Ocupa la posicion: =P 
190 END 


Otro problema que se presenta bastante a menudo, tratando 
con listas, es tener que ordenarlas de menor a mayor O vice- 
versa. 


A continuación explicamos un método sencillo para la 
ordenación de una lista, evidentemente existen otros muchos, 
pero aquí no tienen cabida. 


Este procedimiento consiste en: 

Comparar un elemento con el siguiente; si están en orden se 
dejan como están y si no, se intercambian sus posiciones y así con 
todos los elementos de la lista. 

Este proceso se repetirá hasta que en un recorrido completo 
de la lista no se efectúe ningún intercambio. 


10 REM ORDENACION DE UNA LISTA 
30 DIM P(100) 
40 FOR I=1 TO 100 


50 LET P(I)=RND()*100 
60 NEXT 1 


70 REM ORDENACION 
80 HOME: VTAB 12: PRINT "*!!! ESTOY ORDENANDO LA SERIE!!!” 


100 LET X=0 

110 FOR 1=1 TO 99 
120 IF P(I)<=P(I+1) GOTO 180 
130 REM INTERCAMBIO 
140 LET M=P(1) 

150 LET P(I)=P(I+1) 
160 LET P(I+1)=M 

170 LET X=1 

180 NEXT 1 

190 IF X=1 GOTO 100 
200 FOR I=1 TO 100 
210 PRINT P(1); 

220 NEXT 1 

230 END 


2. VARIABLES DE DOS DIMENSIONES (TABLAS) 


Hasta ahora, sólo hemos utilizado variables dimensionadas 
de un sólo subíndice. Veámos ahora las de dos subíndices. Por 
ejemplo: 


P(3,4) 


Estas variables se utilizan para representar las tablas. 


columnas 


PEL) P(1,2) 
P(2,1) P(2,2) 
PO) ¡SEPA 


Esta sería una tabla de 3 filas por 3 columnas y para utili- 
zarla en nuestro programa hubiésemos necesitado poner: 


DIM P(3,3) 


con lo cual, reservamos espacio para 9 variables que luego 
podremos utilizar refiriéndonos a ellas con sus nombres y sus 
subíndices (fila, columna). 

Evidentemente, las variables pueden ser numéricas o alfa- 
numéricas T$(10,7). 

Para mostrar el manejo de las variables con dos índices 
vamos a ver un programa muy simple: 

Se trata de asignar mediante INPUT, valores a la variable 
A(1,J) de 12 filas y 3 columnas; y posteriormente, imprimir la 
tabla en la pantalla del ordenador. 


10 REM IMPRESION DE UNA TABLA 
30 DIM AS(12,3) 


40 FOR I=1 TO 12 
50 FOR J=1 TO 3 
60 INPUT A(1,J) 


70 NEXT J 


80 NEXT 1 

90 FOR I=1 TO 12 
100 FOR J=1 TO 3 
110 PRINT A(l,J); 
120 NEXT J 

130 PRINT 

140 NEXT | 

150 END 


Se observa el (;) al final de línea 110, que es necesario para 
que las impresiones de los 3 elementos de cada línea de la tabla se 
efectúen en la misma línea de pantalla. La instrucción PRINT de 
la línea 130, es necesaria para que la impresión del primer ele- 
mento de cada línea de la tabla se haga al comienzo de una línea 
de pantalla. 


PI) 


P2) 


PS) 


P4) 


P5) 


REPASO CAPITULO 62 


Hacer un programa que introduzca valores de un vector 
de 10 posiciones y obtenga su suma. 


Hacer un programa para hallar el menor elemento de un 
vector de 100 posiciones. 


Hacer un programa para hallar el menor elemento de una 
matriz de 5x5. 


Hacer un programa que nos imprima una matriz de 5x5, 
en la cual el valor de sus elementos sea la suma de los sub- 
índices que indican su posición. 


Hacer un programa que nos imprima la tabla de multi- 
plicar del 1 al 9. 


123456789 


8 
9 


P6) Hacer un programa que nos ordene un vector de 100 po- 
siciones de mayor a menor. 


P7) Hacer un programa para comprobar la siguiente tabla 
cuadrada e imprimir el resultado. 


>>> »>x 
>» > XxU 
>» )xU00 


BB 
BB 
BB 
x BD 
A x 


Puede ser de cualquier tamaño hasta (14,14) 


P8) Hacer un programa que nos imprima la matriz unidad 
de5x5. 


P9) Hacer un programa que entrándole dos matrices A(3 x 3) 
y B(3x3) nos dé como resultado la impresión de una 
matriz C(3 x 3); suma de las otras dos. 


No pasar la página hasta haber realizado los ejercicios 
planteados. 


R1) 


R2) 


SOLUCIONES 


10 REM SUMA DE UN VECTOR 
30 DIM A(10) 

40 FOR I=1 TO 10 

50 LET A(I)=AND(1)*10 

60 NEXT 1 

70 FOR 1=1 TO 10 

80 LET S=S+A(1) 

90 NEXT | 


100 PRINT "La SUMA del vector es: ”;S 
110 END 


10 REM BUSQUEDA DEL MENOR 
30 DIM P(100) 

40 FOR I=1 TO 100 

50 LET P(I)=RND(1)*100 

60 NEXT 1 

70 LET M=P(1) 

80 LET P=1 

90 FOR I=2 TO 100 

100 IF M<=P(I) GOTO 130 

110 LET M=P(1) 


120 LET P=1 

130 NEXT 1 

140 PRINT "El MENOR de la serie es el: ”;M 
150 PRINT "Ocupa el lugar: le 


160 END 


R3) 


R4) 


RS) 


10 REM MENOR DE MATRIZ S x 5 
30 DIM A(5,5) 

40 FOR I=1 TO 5 

50 FOR J=1 TO 5 

60 LET A (1,J)=RND(1)*25 

70 NEXT J 

80 NEXT 1 

90 LET M=A(1,1) 

100 FOR I=1 TO 5 

110 FOR J=1 TO 5 

120 IF M>A(1,J) THEN LET M=A(1,J) 
130 NEXT J 

140 NEXT 1 | 

150 PRINT "El MENOR es: ”;M 

160 END 


10 REM SUMA DE SUBINDICES 
30 DIM A(S,5) 

40 FOR I=1 TO S 

50 FOR J=1 TO S 

60 LET A(l,J)=1+J 

70 PRINT A(1,J);" *”; 

80 NEXT J 

90 PRINT 

100 NEXT 1 

110 END 


10 REM TABLA de MULTIPLICAR 
30 DIM A(9,9) 

40 FOR I=1 TO 9 

50 FOR J=1 TO 9 


R6) 


60 LET A(l,J)=1xJ 
70 NEXT J 

80 NEXT 1 

90 FOR I=1 TO 9 
100 FOR J=1 TO 9 
110 PRINT A(1,J)"  "; 
120 NEXT J 

130 PRINT 

140 NEXT 1 

150 END 


10 REM ORDENACION DE UNA LISTA 
30 DIM P(100) 

40 FOR I=1 TO 100 

50 LET P(I)=RND(I)*100 

60 NEXT 1 

70 REM ORDENACION 

80 LET X=0 

90 FOR I=1 TO 99 

100 IF P(I)>=P(I+1) THEN 150 
10 LET M=P(1) 

120 LET P(D)=P(1+1) 

130 LET P(la 1)=M 

140 LET X=1 

150 NEXT 1 

160 IF X=1 TO 80 

170 FOR l=1 TO 100 

180 PRINT P(1); 

190 NEXT 1 

200 END 


R7) 


R8) 


40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 


10 
30 
40 
50 
60 
70 
80 
90 
100 


REM TABLA CUADRADA 
DIM AS(14,14) 

INPUT "TAMAÑO DESEADO 2... ”,N 
FOR l=1 TO N 

FOR J=1 TO N 

AF 1<>J THEN 80 

LET AS(I,J)="X":GOTO 110 

IF 1>J THEN 100 

LET AS(1,J)="B":GOTO 110 

LET AS(1,J)="A*” 

NEXT J 

NEXT 1 

FOR I=1 TO N 

FOR J=1 TO N 

PRINT " "¡AS(1J); 

NEXT J 

PRINT 

NEXT 1 

END 


REM MATRIZ UNIDAD DE 5 x 5 
DIM A(5,5) 

FOR l=1 TO S 

FOR J=1 TO 5 

LET A(I,J)=0 

IF 1=J THEN LET A(l,J)=1 
NEXT J 

NEXT 1 

FOR I=1 TO 5 


110 FOR J=1 TO S 


120 
130 


PRINT A(I,J); 
NEXT J 


R9) 


140 PRINT 


200 
210 

220 
230 
240 
250 


150 NEXT | 
160 END 
10 REM SUMA DE DOS MATRICES 
30 DIM A(3,3),B(3,3),C(3,3) 
40 FOR |=1 TO 3 
50 FOR J=1 TO 3 
60 INPUT "ELEMENTO DE A "; A(l,J) 
70 NEXT J 
80 NEXT 1 
90 FOR I=1 TO 3 
100 FOR J=1 TO 3 
110 INPUT "ELEMENTO DE B ";B(1,J) 
120 NEXT J 
130 NEXT 1 
140 FOR 1=1 TO 3 
150 FOR J=1 TO 3 
160 LET C(I,J)=A(1,J)+B(1,J) 
170 NEXT J 
180 NEXT 1 
190 FOR I=1 TO 3 


FOR J=1 TO 3 
PRINT C(1,J), 
NEXT J 

PRINT 

NEXT 1 

END 


- APENDICE — 
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ENUNCIADOS 1 PARTE 


PROBLEMAS DE MATEMATICAS 


Hacer un programa que nos imprima el producto carte- 


siano de los números naturales del 1 al 9NxÑN 
= (1,2,3,4,5,6,7,8,9) 


Hacer un programa que dándole los lados de dos triángu- 


los, nos diga si son o no triángulos semejantes. 


Hacer un programa que dándole el radio nos calcule: 


e longitud de la circunferencia 
e área del círculo 
e área de la esfera 


e volumen de la esfera 


Hacer un programa que nos calcule el área total y el vo- 


lumen de un cono. 
Lo mismo con un cilindro. 


Hacer un programa que nos calcule las soluciones de un 
sistema de ecuaciones de la siguiente forma: 

ax + by=<c 

alx + bly = cl 


Hacer un programa que nos calcule el tanto por ciento, 


dándole la cantidad y el porcentaje. 


Hacer un programa que me permita calcular el interés o 
el capital, o el rédito, o el tiempo en meses, dándole el 


resto de los datos. 


Hacer un programa que dándole los catetos de un trián- 


gulo rectángulo me diga la hipotenusa; O dándole un 


cateto y la hipotenusa, me dé el otro cateto. 


10. 


11. 


12. 


13 


14. 


Hacer un programa, que dándole la diagonal de un cua- 


drado me dé el área y los lados del mismo. 


Hacer un programa para resolver ecuaciones del tipo 
ax + bx =0 


Hacer un programa para resolver ecuaciones del tipo 


ar +c=0 


Hacer un programa para resolver ecuaciones del tipo 
ax +bx+c=0 


Hacer un programa que nos calcule la media aritmética 


de una serie de números. 


No pasar la página hasta haber realizado los ejercicios 


planteados. 


SOLUCIONES —I PARTE 


10 REM PRODUCTO CARTESIANO 
20 FOR I=1 TO 9 

30 FOR J=1 TO 9 

40 PRINT 15%,%5J 

SO NEXT J 

60 NEXT 1 

70 END 


Dos triángulos son equivalentes si sus lados son propor- 


cionales. 


10 REM TRIANGULOS EQUIVALENTES 

20 INPUT "LADOS DEL 1 TRIANGULO ”;A,B,C 

30 INPUT "LADOS DEL 2 TRIANGULO ”;D,E,F 

40 IF A<XB THEN LET P=A:LET A=B:LET B=P 

50 IF A<C THEN LET P=A:LET A=C:LET C=P 

60 IF B<C THEN LET P=B:LET B=C:LET C=P 

70 IF D<E THEN LET P=D:LET D=E:LET E=P 

80 IF D<F THEN LET P=D:LET D=F:LET F=P 

90 IF. E<F THEN LET P=E:LET EsF:LET F=P 

100 IF (A/D=B/E) AND (B/E=C/F) THEN 130 

110 PRINT "LOS TRIANGULOS NO SON EQUIVALENTES” 
120 GOTO 140 

130 PRINT "LOS TRIANGULOS SON EQUIVALENTES” 
140 END 


10 REM CIRCULO,CIRCUNFERENCIA,ESFERA 
20 INPUT "ENTRAR EL RADIO ”;R 

30 LET Pl=3.141392 

40 LET L=2X*PIXR 


6. 


ax + by=<c 
alx + bly = cl 


SO PRINT "LA LONGITUD DE LA CIRCUNFERENCIA ES: ";¡L 
60 LET A=PIXR*2 


70 PRINT "EL AREA DEL CIRCULO ES: A 
80 LET AE=4xA | 
90 PRINT "EL AREA DE LA ESFERA ES: "¡AE 


100 LET V=(4xPIXRM3)/3 
110 PRINT "EL VOLUMEN DE LA ESFERA ES: ";¡V 
120 END 


10 REM AREA Y VOLUMEN DE UN CONO 
20 INPUT "ENTRAR ALTURA: ";H 

30 INPUT "ENTRAR RADIO: — “";R 

40 LET G=SQR(H*2+R*2): LET Pl=3.141592 
50 LET A=PIXR*G+PIXR92 

60 PRINT "EL AREA TOTAL ES: "¡A 

70 LET V=PI*RA2xH/3 

80 PRINT "EL VOLUMEN ES: ";¡V 

90 END 


10 REM AREA Y VOLUMEN DE UN CILINDRO 

20 INPUT "ENTRAR RADIO  ";R 

30 INPUT "ENTRAR ALTURA ";H 

40 LET Pl=3.141592 

SO LET A=2*PIXR*H+2*PIXRM2 

60 PRINT "EL AREA TOTAL DEL CILINDRO ES: ”;A 
70 LET V=PIXR*2xH 

80 PRINT "EL VOLUMEN DEL CILINDRO ES: ";V 

90 END 


A 


a) + bly = cl 


alc — alby 


a + bly = cl 


alc — alby + ably = acl 
y(abl — alb) = acl — alc 


10 REM ECUACIONES 


20 INPUT "VALORES A,B,C,1 ECUACION ”;A,B,C 

30 IF A=0 OR B=0 OR C=0 THEN 20 

40 INPUT "VALORES A,B,C, 2 ECUACION ”;A1,B1,C1 
50 IF AI=0 OR B1=0 Cx C1=0 THEN 40 

60 LET Y=(A*C1-A1X*C)/(AXBI-A1XB) 

70 LET X=(C-BxRY)/A 

80 PRINT "EL VALOR X=";X 

90 PRINT "EL VALOR Y=";Y 

100 END 


10 REM TANTO POR CIENTO 

20 INPUT "ENTRAR CANTIDAD";C 

30 INPUT "ENTRAR PORCENTAJE”;P 

40 LET T=C*P/100 

50 PRINT "EL TANTO POR CIENTO ES: ";T 
60 END 


10 REM INTERES COMPUESTO 

20 PRINT "SI QUIERES SABER EL CAPITAL PULSAR<C>"” 
30 PRINT "SI QUIERES SABER EL REDITO PULSAR <R>"” 
40 PRINT "SI QUIERES SABER EL TIEMPO PULSAR <T>" 
SO PRINT "SI QUIERES SABER EL INTERES PULSAR<I>" 

60 INPUT AS 

70 IF AS<>"1" AND AS<>"R” AND AS<>"T" AND AS<>"C" THEN 60 
80 IF AS="C"” THEN 100 

90 INPUT "CAPITAL";C 

100 IF AS="R" THEN 120 

110 INPUT "REDITO";R 

120 IF AS="T" THEN 140 

130 INPUT "TIEMPO EN MESES";T 

140 If AS="1" THEN 160 

150 INPUT "INTERES”;! 

160 IF AS="1" THEN PRINT "EL INTERES=";C*R*T/1200 
170 IF AS="C" THEN PRINT "EL CAPITAL=";(1200*1)/(R*T) 
180 IF AS="R" THEN PRINT "EL REDITO=";(1200*1)/(Cx*T) 


190 IF AS="T" THEN PRINT "EL TIEMPO=";(1200*/)/(CX*R);" meses” 
200 END 


9 


10 REM PITAGORAS 
20 PRINT "SI QUIERES CALCULAR LA HIPOTENUSA PULSAR <1>” 
30 PRINT "SI QUIERES CALCULAR UN CATETO PULSAR 25)” 


10. 


IE, 


40 
50 
60 
70 
80 
90 


INPUT 1 

IF 1<>1 AND 1<>2 THEN 40 

IF 1=2 THEN 110 

INPUT "ENTRAR LOS CATETOS”;A,B 
LET H=SQR(A*2+B*2) 

PRINT "LA HIPOTENUSA ES=";H 


100 GOTO 140 

110 INPUT "ENTRAR UN CATETO E HIPOTENUSA”;A,H 
120 LET B=SQR(HA2-A*2) 

130 PRINT "EL OTRO CATETO ES=";B 

140 END 


50 


REM AREA DEL CUADRADO 

INPUT "ENTRAR DIAGONAL”;D 

LET L=SQR(D*2/2) 

PRINT "EL CUADRADO ES DE LADO=";L 
PRINT "EL AREA DEL CUADRADO ES=";L42 
END 


REM ECUACION. AX 2 + BX=0 
INPUT "ENTRAR A Y B”;A,B 
LET X=(-B)/A 

PRINT "X1=";0 

PRINT "X2=";X 

END 


REM ECUACION AX*%2+C=0 
INPUT "ENTRAR A Y C";A,C 
IF. (-C)/A>O THEN 60 


PRINT "LA ECUACION NO TIENE SOLUCION” E) 
GOTO 90 


13, 


14, 


70 
80 


LET xX=SQR((-C)/A) 
PRINT "X1="5X 
PRINT "X2=";Xx*(-1) 
END 


REM ECUACION BICUADRADA 

INPUT "ENTRAR A,B Y C";¡A,B,C 

LET R=B%2-4*Ax*C 

IF. R>=0 THEN 70 

PRINT "ESTA ECUACION TIENE SOLUCION IMAGINARIA" 
GOTO 110 

LET Xx ((-B)+SOQR(R)/(2*A) 

LET Xx2=((-B)-SOR(R))/(2*A) 

PRINT "Xx1=";X1 


100 PRINT "x2=";x2 
110 END 


10 

20 
30 
40 
50 
60 
70 
80 
90 


REM MEDIA ARITMETICA 
INPUT "CUANTOS NUMEROS TIENE LA SERIE ";N 
FOR I=1 TO MN 

INPUT "NUMERO";P 

LET S=S+P 

NEXT 1 

LET MEDIA=S/N 

PRINT "LA MEDIA ARITMETICA ES "¡MEDIA 

END 


ENUNCIADOS Il PARTE 


PROBLEMAS DE FISICA 


Hacer un programa que nos permita calcular la presión 
en atmósferas, O la fuerza en kilopondios, o la superficie 


en cn. según la formula 


Hacer un programa que nos permita calcular la velocidad 
media en m/sg, Oo el espacio en m., o el tiempo en 


segundos, según la fórmula 


Hacer un programa para calcular la aceleración dándole 


la velocidad inicial, la velocidad final y el tiempo. 


Hacer un programa para calcular la velocidad final, dán- 


dole la velocidad inicial, la aceleración y el tiempo. 


Hacer un programa que nos permita calcular la altura en 


metros o el tiempo en segundos, que tarda en caer un 


peso en el vacío. 


Hacer un programa que nos perraita calcular el trabajo 


en Julios y la potencia en Vatios, dándole la fuerza en 


Newtons, el espacio en metros y el tiempo en segundos. 


Hacer un programa que nos permita calcular la fuerza o 
el brazo necesarios en una palanca para levantar un peso 


dado, con un brazo dado. 


Hacer un programa para resolver problemas del tipo: 
Se carga una batería durante x horas con una inten- 
sidad de y amperios. Calcular la carga o cantidad de elec- 


tricidad almacenada en la batería, expresada en culombios. 


Hacer un programa que nos permita calcular la 
intensidad en amperios, o la diferencia de potencial en 
voltios, o la resistencia en ohmios; aplicando la ley 
de Ohm. | 


No pasar la página hasta haber realizado los ejercicios 


planteados. 


SOLUCIONES II PARTE 


10 REM PRESION FUERZA SUPERFICIE 
20 PRINT "SI QUIERES CALCULAR PRESION ee dd 


30 PRINT "sI QUIERES CALCULAR FUERZA <p>” 
40 PRINT "SI QUIERES CALCULAR SUPERFICIE <S>” 
50 INPUT AS 


60 IF AS<>"P"” AND AS<>"F” AND AS<>"S” THEN 50 

70 IF AS="P" THEN 90 

80 INPUT "ENTRAR PRESION EN ATMOSFERAS ";P 

90 IF AS="F" THEN 110 

100 INPUT "ENTRAR FUERZA EN KILOPONDIOS ";F 

10 IF AS="S" THEN 130 

120 INPUT "ENTRAR SUPERFICIE EN CM2 ";S 

130 IF AS="P" THEN PRINT "PRESION= ";F/S;” ATMOSFERAS" 
140 IF AS="F" THEN PRINT "FUERZA= ";Px*xS;” KILOPONDIOS” 
150 IF AS="S" THEN PRINT "SUPERFICIE= ";F/P;” CM2"” 

160 END 


10 REM VELOCIDAD ESPACIO TIEMPO 
20 PRINT "SI QUIERES CALCULAR LA VELOCIDAD <V>"” 
30 PRINT "SI QUIERES CALCULAR EL ESPACIO <E>" 
40 PRINT '"SI QUIERES CALCULAR EL TIEMPO er?” 
SO INPUT AS 

60 IF AS<>"V"” AND AS<X>"E"” AND AS<>"T" THEN 50 
70 IF AS="V" THEN 90 

80 INPUT "ENTRAR VELOCIDAD EN m/sg";v 
90 IF AS="E"” THEN 110 

100 INPUT "ENTRAR ESPACIO EN METROS";E 
MO 1F AS="T" THEN 130 

120 INPUT "ENTRAR TIEMPO EN sg";T 


130 IF AS="V" THEN PRINT "VELOCIDAD= ";E/T;" m/sg" 
140 IF AS="E" THEN PRINT "ESPACIO= ";¡V*T;" metros” 
150 IF AS="T" THEN PRINT "TIEMPO= "¡E/V;” segundos” 
160 END 


10 REM ACELERACION 

20 INPUT "ENTRAR VELOCIDAD INICIAL EN m/sg ”;VI 
30 INPUT "ENTRAR VELOCIDAD FINAL EN m/sg ";¡VF 
40 INPUT "ENTRAR TIEMPO TRANSCURRIDO EN sg ";T 
50 LET A=(VF-V1)/T 

60 PRINT "LA ACELERACION ES IGUAL A ";¡A;" M/SG2" 
70 END 


10 REM VELOCIDAD FINAL 

20 INPUT "ENTRAR LA ACELERACION EN M/SG2 ";A 

30 INPUT "ENTRAR LA VELOCIDAD INICIAL EN M/SG ";VI 
40 INPUT "ENTRAR TIEMPO TRANSCURRIDO EN SG ";T 

SO LET VF=AX*XT+V! 

60 PRINT "LA VELOCIDAD FINAL ES IGUAL A ";VF;" M/SG” 
70 END 


REM CAIDA EN EL VACIO 

INPUT "Calculo de tiempo <T> Calculo de altura <H> "¡AS 
IF. AS="T" THEN SO 

INPUT "ENTRAR TIEMPO EN SG ";T 

IF AS="H" THEN 70 

INPUT "ENTRAR ALTURA EN METROS ";H 

LET G=9.80 

IF. AS="T" THEN PRINT "EL TIEMPO ES ";¡SQR(2*hx*G);" sg" 

IF AS="H" THEN PRINT "LA ALTURA ES ";T1%*2/(Gx*2);" metros” 


100 END 


10 
20 
30 
40 
50 
60 
70 
80 
90 


10 REM 


REM TRABAJO POTENCIA 


INPUT "ENTRAR LA FUERZA EN NEWTONS";F 
INPUT "ENTRAR EL ESPACIO EN METROS”;S 
LET T=F*S 

PRINT "EL TRABAJO ES= ";T;" JULIOS” 
INPUT "ENTRAR EL TIEMPO EN SG ";TI 
LET P=T/TI 

PRINT "LA POTENCIA ES= ";P;" VATIOS" 
END 

PALANCA 


20 INPUT "CALCULA FUERZA -—F BRAZO --B";AS 

30 IF AS<>"F"” AND AS<>"B"” THEN 20 

40 INPUT "ENTRAR PESO DE RESISTENCIA ";R 

SO INPUT "ENTRAR BRAZO DE LA RESISTENCIA ";BR 

60 IF AS="F" THEN 80 

70 INPUT "ENTRAR FUERZA ";F 

80 IF AS="B" THEN 100 

90 INPUT "ENTRAR BRAZO DE LA FUERZA ";BF 

100 IF AS="F" THEN PRINT "LA FUERZA NECESARIA ES ";(R*BR)/BF 
MO IF AS="B"” THEN PRINT "EL BRAZO NECESARIO ES ";(R*BR)/F 


50 
60 
70 


120 END 

8. 
10 REM CALCULO DE CARGA 
20 INPUT "HORAS DE CARGA DE LA BATERIA?... *”;H 
30 INPUT "INTENSIDAD DE CARGA EN amperios; ”;! 
40 LET Q=HXI 


LET C=QX*3600 
PRINT "La electricidad es de: ";C;” culombios” 
END 


100 
110 

120 
130 
140 
150 
160 


REM LEY DE OHM 
PRINT "Para calcular la diferencia de potencial <v>" 


PRINT "Para calcular la intensidad 4 e 
PRINT "Para calcular la resistencia <r>" 
INPUT AS 


IF. ASX>"V"” AND AS<>"i'” AND AS<>"R" THEN SO 

IF AS="V" THEN 90 

INPUT "Entrar diferencia de potencial en Voltios: ";v 

IF. AS="R" THEN 110 

INPUT "Entar resistencia en Ohmios: ";R 

IF AS="1" THEN 130 

INPUT "Entrar intensidad en Amperios: ”;! 

IF. AS="V" THEN PRINT "LA DIFERENCIA DE POTENCIAL: “";¡Rx*I" vol.” 
IF. AS="R" THEN PRINT "LA RESISTENCIA ES: ";V/1;” Ohmios” 
IF AS="1" THEN PRINT "LA INTENSIDAD ES : ";¡V/R;” Amperios” 
END 


